|
Hallo ihr Lieben,
möchte Zeile für Zeile ne neue If Bedingung, ich hab schon nen code gefunden, welche bei der ersten Zelle einwandfrei funktioniert. Nun weiß ich nicht wie meine nächste Zelle anspreche. Habs schon mit einigen Befehlen probiert wie z.B Next.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'Wenn Target aus mehr als 1 Zelle besteht, führe keine
'Hintergrundformatierung aus
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
'Außerhalb des Zellbereichs D20:E25 soll keine
'bedingte Hintergrundfärbung ausgeführt werden
If Application.Intersect(Range("F5"), Target) Is Nothing Then Exit Sub
If .Value < 3 Then
.Interior.Color = vbWhite
ElseIf .Value < 10 Then
.Interior.Color = vbYellow
ElseIf .Value < 15 Then
.Interior.Color = vbGreen
ElseIf .Value = 15 Then
.Interior.Color = vbCyan
Else
.Interior.Color = vbRed
End If
Next ?????????
If Application.Intersect(Range("F6"), Target) Is Nothing Then Exit Sub
If .Value < 12 Then
.Interior.Color = vbWhite
ElseIf .Value < 26 Then
.Interior.Color = vbYellow
ElseIf .Value < 33 Then
.Interior.Color = vbGreen
ElseIf .Value = 58 Then
.Interior.Color = vbCyan
Else
.Interior.Color = vbRed
End If
End With
End Sub
Vielen Dank für Eure Hilfe.
Gruß Christian
|